home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / rpgedi1a / clsweapo.cls < prev    next >
Text File  |  1999-09-15  |  689b  |  28 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsWeapon"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. 'This class represents a weapon
  15. Dim IDNum As Integer
  16. Dim Name As String
  17. Dim Desc As String
  18. Dim MeleeDam As Integer
  19. Dim PiercingDam As Integer
  20. Dim MPPlus As Integer
  21. Dim HPPlus As Integer
  22. Dim INTPlus As Integer
  23. Dim STAPlus As Integer
  24. Dim STRPlus As Integer
  25. Dim ACPlus As Integer
  26. Dim weight As Integer
  27.  
  28.